0CLEAR,,5:DEFINTA-Z:CLS:SCREEN0,11,11:FORI=6TO15:READA:PALETTEI,A:NEXT:BOXF(0,8)-(31,10),-7:LINE(8,11)-(31,11),-7:PSET(0,12),-15:PSET(8,12),-16:PSET(16,12),-7:PSET(24,12),-16:LINE(0,13)-(15,13),-15:PSET(16,13),-16:PSET(24,13),-15:BOXF(0,14)-(31,29),-15
1BOXF(0,18)-(31,21),-13:BOXF(0,30)-(31,31),-14:PSET(0,11),-16:DIMB(40):GET(0,1)-(1,3),B(40):M(0)=40:GET(2,1)-(3,3),B(20):O$="GAME OVER":D$="O1T20A5REREDOT60DO":M$="O5MI":Y=0:Z=3:C=7:S=3:FORI=1TO4:BOXF(0,Y)-(40,Z)" ",S,C:Y=Z:Z=Z+(2*I)+2:C=C+1:IFI=2THENS=0    
2NEXT:DEFGR$(4)=255,102,219,165,165,219,102,60:ATTRB0,0:CONSOLE,,,2:COLOR6,11:FORI=3TO36:LOCATEI,24,0:PRINTGR$(4):NEXT:CONSOLE0,23,,0:COLOR0:DEFGR$(0)=16,8,28,60,56,56,16,8:S=3:X=S:Y=21:N=16:G=2:D=0:M=1:W=20:T=RND(PEEK(8241))*10+1:PLAY"O5T1A90":B=20
3FORR=0TO24:READF(R@5,R MOD5):NEXT:FORI=1TO10:READT$(I):NEXT:DEFGR$(1)=8,16,56,60,28,28,8,8:DEFGR$(2)=60,126,219,255,231,126,60,195:DEFGR$(3)=60,126,255,237,255,122,60,195:DATA4095,780,777,774,772,770,532,299,333,895:E$="HAPPY 10TH ANNIVERSARY":A=0:L=-1
4M(1)=20:O=4:FORI=S TO N+S:PUT(X,Y),B(M(I MOD2)):X=X+2:NEXT:Y=Y-3:S=S+3:N=N-3:X=S:IFN>0THEN4ELSEY=20:FORR=0TO4:FORC=0TOO:V=F(R,C):BOXF(V,Y)-(V,Y-1)" ",,6:PSET(V*8,Y*8+7),-14:LINE(V*8+4,Y*8-16)-(V*8+4,Y*8-9),1:NEXT:Y=Y-3:O=O-1:NEXT:CONSOLE,,1:Y=20:Q=3
5A=A XOR1:LOCATEQ,W:ATTRB1,1:PRINTGR$(G):ATTRB0,0:LOCATEQ,M:PRINTUSING"&";T$(T):LOCATEQ-1,M-1:PRINTUSING"&";S$:M=M+1:IFM>W+3THENLOCATEQ,M-1:PRINTUSING"&";S$:M=1:T=RND(PEEK(8241))*10+1ELSEIFM=W ORM=W+1THENLOCATEQ,M:PRINTS$:E=1:GOTO9
6IFK=15THENLOCATE9,3:ATTRB,1:PRINTE$:FORI=1TO9:PLAY"A"+STR$(H)+"T4L24FAFAFAFAL48MIL24REMIL48FAL24MIFASOREP":H=RND(1)*9:PALETTE3,I*53:NEXT:CONSOLE,,0:GOTO0ELSES$=SPACE$(LEN(T$(T))+2):ATTRB,0:O=4:FORR=0TO4:FORC=0TOO:V=F(R,C):IFV>0THENLOCATEV,Y-2:PRINTGR$(A)
7NEXT:Y=Y-3:O=O-1:NEXT:J=STICK(0):Y=20:IFJ=5THENG=3:D=Q+1:IFL>=0THENFORZ=0TO4:IFD=F(L,Z)THENLOCATEQ+1,W+1:PRINT"|":F(L,Z)=0:K=K+1:ELSENEXTELSEELSEG=2:IFJ=3THENLOCATEQ,W:ATTRB0,1:PRINT" ":Q=Q+1:PLAYM$ELSEIFJ=7THENLOCATEQ+1,W:ATTRB0,1:PRINT" ":Q=Q-1:PLAYM$
8IFW>4ANDJ=1THENATTRB1,1:LOCATEQ,W:W=W-3:L=L+1:PRINT" "ELSEPX=Q*8:PY=W*8+8:IFPOINT(PX,PY)<>-7ANDPOINT(PX+16,PY)<>-7THENATTRB1,1:LOCATEQ,W:W=W+3:L=L-1:PLAY"O5MIDO":PRINT" ":IFW>=23THENE=1:GOTO9
9IFE=1THENLOCATE11,3:ATTRB1,1:PRINTO$:PLAYD$:CONSOLE,,0:GOTO0:ELSE5:DATA7,13,19,25,31,11,17,22,28,0,14,20,25,0,0,17,22,0,0,0,19,0,0,0,0:DATAPRINT"Hello World",LET A=42,10 GOTO 10,NEXT I,FOR I=1 TO 100,INPUT A,REM I catch you!,LIST,LOOP,END,IF A>B THEN 10